home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_2_of_2_Side_A.d64 / zuerst laden!!!! (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  4KB  |  109 lines
  1. 1 rem ---------------------------------
  2. 2 rem  freeware 10.11.1995 by alex zop
  3. 3 rem ---------------------------------
  4. 10 print chr$(142):
  5. 15 print"[155][147]";:poke808,237:poke53280,0:poke53281,0  : rem   ^ disable 'stop'
  6. 30 print"[158]========================================"
  7. 31 print"[145][158]brotkasten  rockford-freeware diskette!!"
  8. 32 print"[145][158]========================================"
  9. 40 print"[158]----------------------------------------"
  10. 45 print"[145][155]um die programme dieser rockford-fd disk"
  11. 46 print"[145]problemlos anzuwenden, kannst du nun die"
  12. 47 print"[145]inhaltsbeschreibung mit allen wichtigen"
  13. 48 print"informationen, kurzanleitungen, und den"
  14. 49 print"copyright-hinweisen am bildschirm lesen"
  15. 50 print"oder auch ausdrucken lassen. viel spass!"
  16. 55 print"[145][158]----------------------------------------"
  17. 60 print"[158]----------------------------------------"
  18. 61 print"[145][155]natuerlich kannst du auch alle weiteren"
  19. 62 print"texte dieser rockford-fd diskette lesen!"
  20. 63 print"[145][158]----------------------------------------"
  21. 64 print"     welche texte willst du lesen?"
  22. 65 print" <[155]i[158]>nhalt   <[155]a[158]>leitungen   <[155]s[158]>onstiges [145][145][145]"
  23. 66 getz$:ifz$=""then66
  24. 67 ifz$="a"goto1000
  25. 68 ifz$="i"goto71
  26. 69 ifz$="s"goto119
  27. 70 ifz$<>""then66
  28. 71 print" <[155]k[158]>urz-  o. <[155]u[158]>mfassender inhaltstext?"
  29. 72 get o$:if o$=""then72
  30. 73 if o$="k"then b$="kurzi*":goto80
  31. 74 if o$="u"then b$="inhalt*":goto80
  32. 75 if o$<>""then72
  33. 80 print"[145][145][145][158]   wohin soll ich den text schreiben?   "
  34. 85 print"      [155]<[158]m[155]>onitor  [151]<[158]d[151]>rucker  <e>nde     "
  35. 90 getg$:ifg$=""then90
  36. 95 ifg$="e"then470
  37. 100 ifg$="m"goto240
  38. 105 ifg$="d"then230
  39. 110 ifg$<>""then90
  40. 119 print"[155][147]";:poke808,237:poke53280,0:poke53281,0  : rem   ^ disable 'stop'
  41. 120 print"[147][158]========================================"
  42. 121 print"[145][158]brotkasten  rockford-freeware diskette!!"
  43. 122 print"[145][158]========================================"
  44. 123 print"[151][158]----------------------------------------"
  45. 130 print"[145][151]folgende weitere texte solltest du noch "
  46. 135 print"[145]          lesen oder ausdrucken:        "
  47. 140 print""spc(10)"[155]<[158]f[155]>ragebogen   "
  48. 141 print""spc(10)"[155]<[158]p[155]>rogrammierer infos"
  49. 142 rem und so weiter...
  50. 150 print"[158]----------------------------------------"
  51. 151 print"[158]----------------------------------------"
  52. 152 print"[145][158]waehle den jeweiligen anfangsbuchstaben!"
  53. 153 print"[145][158]----------------------------------------"
  54. 160 getu$:ifu$=""then160
  55. 161 ifu$="f"then b$="frag*":goto80
  56. 162 ifu$="p"then b$="prgi*":goto80
  57. 163 rem und so weiter siehe 140-149
  58. 180 ifu$<>""then160
  59. 181 goto 80
  60. 230 open1,4,7:q=1
  61. 240 open5,8,5,b$+",s,r":gosub420
  62. 245 print"[147][144]poke53280,0:poke53281,0
  63. 250 [153]"systantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  64. 260 [153]"onstr$ruecke (NULL)(NULL)atnlenval o. (NULL)val(NULL)(NULL)(NULL)(NULL) um den (NULL)extfluss"
  65. 270 [153]"onanzuhalten. str$ruecke nochmals um weiter- "
  66. 280 [153]"onzulesen! (NULL)it >(NULL)< beendest str$u das (NULL)(NULL)chr$!   "
  67. 290 [153]"ontantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist"
  68. 300 [161]#5,f$
  69. 310 [139]st[178]0[167]330
  70. 320 [139]st[178]64[167]440
  71. 330 [139]q[179][177]1[167][153]f$;:[137]350
  72. 340 [152]1,f$;
  73. 350 [161]a$
  74. 360 [139]a$[179][177]""[167][141]380
  75. 370 [137]300
  76. 380 [139]a$[178]"q"[167]440
  77. 390 [161]a$:[139]a$[178]""[167]390
  78. 400 [139]a$[178]"q"[167]440
  79. 410 [142]
  80. 420 [160]15:[159]15,8,15:[132]15,d,e$,f,g
  81. 430 [142]
  82. 440 q[178]0:[160]1:[160]5:[137] 470
  83. 470 [151]808,237:[153]"on":[137]490
  84. 490 [151]631,13:[151]632,13:[151]198,2:[128]
  85. 900 [161]g$:[139]g$[178]""[167]90
  86. 1000 [153]"listload";:[151]808,237:[151]53280,0:[151]53281,0  : [143]   ^ disable 'stop'
  87. 1001 [153]"loadsys========================================"
  88. 1002 [153]"onsysbrotkasten  rockford-freeware diskette!!"
  89. 1003 [153]"onsys========================================"
  90. 1004 [153]"pokesys----------------------------------------"
  91. 1005 [153]"onpokefuer welches prg willst du die anleitung?"
  92. 1006 [153]"on          lesen oder ausdrucken:        "
  93. 1007 [153]""[166]10)"list<sys1list> afli-ed 2.0+/hires-ed 1.0"
  94. 1008 [153]""[166]10)"list<sys2list> dual block drop 1.2"
  95. 1009 [153]""[166]10)"list<sys3list> arc 2.50"
  96. 1010 [153]""[166]10)"list<sys4list> crossword-scrabble"
  97. 1011 [153]""[166]10)"list<sys5list> split txt"
  98. 1050 [153]"sys----------------------------------------"
  99. 1052 [153]"onsyswaehle den jeweiligen anfangsbuchstaben!"
  100. 1053 [153]"onsys----------------------------------------"
  101. 1060 [161]w$:[139]w$[178]""[167]1060
  102. 1061 [139]w$[178]"1"[167] b$[178]"1dok*":[137]80
  103. 1062 [139]w$[178]"2"[167] b$[178]"2dok*":[137]80
  104. 1063 [139]w$[178]"3"[167] b$[178]"3dok*":[137]80
  105. 1064 [139]w$[178]"4"[167] b$[178]"4dok*":[137]80
  106. 1065 [139]w$[178]"5"[167] b$[178]"5dok*":[137]80
  107. 1070 [139]w$[179][177]""[167]1060
  108. 1071 [137]80
  109.